home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 55 / 055.d81 / sea battle (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  50 lines
  1. 5 gosub 6000
  2. 6 forx=828to1023:pokex,.:next
  3. 7 :
  4. 8 rem the folowing lines are original
  5. 9 :
  6. 10 poke646,15:print"[147] score: 0    64 sea battle[146]":poke915,16:q=1774:rem snader
  7. 15 forp=0to9:readl,m:a(p)=l:b(p)=m:next:fort=0to26:readl:poke832+t,l:next
  8. 20 v=53248:s=54296:pokev+39,0:pokev+40,1:poke2040,13:poke2041,14:pokev+33,14
  9. 25 fort=0to9:c=rnd(ti)*(100)+65:b=c:k=0
  10. 30 q=q-2:forp=0to9:pokeq+a(p),b(p):next:g=0:d=c/26:pokev+21,3:pokev+1,c
  11. 35 forx=0to255stepd:pokes,15:pokes,0:pokev,x:pokev+2,x:getk$:ifk$<>""thenk=1
  12. 40 g=g+(.2*k):b=b+g:pokev+3,b:pokev+32,7:ifb>212thenpokev+21,1:k=0:g=0
  13. 45 ifpeek(v+31)<>0thenh=h+1:print" score:";h:pokev+32,2:pokev+21,1:k=0:g=0
  14. 50 next:ifh>9thenprint"[147] ship destroyed":fort=0to60:pokev+33,t:next:end
  15. 55 next:print" try again!":fort=0to24:forp=0to9:pokeq+a(p),b(p):next:q=q-2:next
  16. 60 data0,103,1,32,2,32,38,95,39,247,40,160,41,98,42,98,43,32,44,32,224,127,192
  17. 65 data240,8,128,248,5,4,63,255,228,7,255,252,0,127,228,0,3,132,0,0,128,0,1,192
  18. 70 :
  19. 75 :
  20. 80 rem the following lines are added by        loadstar
  21. 90 :
  22. 91 poke53269,.
  23. 92 :
  24. 100 poke214,10:print:print"game over : do you want to play again?"
  25. 101 geta$:ifa$="y"ora$="[217]"then run10
  26. 105 ifa$="n"ora$="[206]"then 200
  27. 110 goto101
  28. 200 open15,8,15,"r0:one-screen winners=one-screen winners":input#15,er:close15
  29. 201 if er<>63 then print"[147]":end
  30. 210 load"one-screen winners",8
  31. 6000 poke53280, 0:poke53281, 0:print"[147]";
  32. 6001 print"[155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  33. 6002 print"[152]    [204][207][193][196][211][212][193][210] [208][210][197][211][197][206][212][211]     "
  34. 6003 print"[151][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  35. 6004 print"[172]                    [146][187]"
  36. 6005 print"                      "
  37. 6006 print"                      "
  38. 6007 print"[163][163][163][163][163][163][163][163][163][160] S E A  B A T T L E  [146][163][163][163][163][163][163][163][163][163][160]               ";
  39. 6008 print"     [160]"
  40. 6009 print"[163][163][163][163][163][163][163][163][163]         By           [146][163][163][163][163][163][163][163][163][163]                ";
  41. 6010 print"     [160]"
  42. 6011 print"[163][163][163][163][163][163][163][163][163]  Bob & David Snader [160][146][163][163][163][163][163][163][163][163][163]                ";
  43. 6012 print"      "
  44. 6013 print"[188]                    [146][190]"
  45. 6014 print"[155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  46. 6015 print"[152] PRESS SPACE[160]TO[160]CONTINUE  "
  47. 6016 print"[151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  48. 6020 geta$:ifa$<>" "then6020
  49. 6030 print"[147]"chr$(142):return
  50.